home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
LANG20.ZIP
/
FORM1.FRM
< prev
next >
Wrap
Text File
|
1994-02-03
|
10KB
|
487 lines
Version 1.00
BEGIN Form Form1
AutoRedraw = 0
BackColor = QBColor(7)
BorderStyle = 1
Caption = "Language 2.00"
ControlBox = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(25)
Left = Char(0)
MaxButton = 0
MinButton = 0
MousePointer = 0
Tag = ""
Top = Char(0)
Visible = -1
Width = Char(80)
WindowState = 0
BEGIN Label Lbl
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "0 Kb."
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 1
Left = Char(63)
MousePointer = 0
TabIndex = 4
Tag = ""
Top = Char(1)
Visible = -1
Width = Char(10)
END
BEGIN Label Lbl
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = ""
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 2
Left = Char(15)
MousePointer = 0
TabIndex = 5
Tag = ""
Top = Char(3)
Visible = -1
Width = Char(60)
END
BEGIN Label Lbl
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "File Size:"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 0
Left = Char(52)
MousePointer = 0
TabIndex = 3
Tag = ""
Top = Char(1)
Visible = -1
Width = Char(10)
END
BEGIN TextBox Txt
BackColor = QBColor(7)
BorderStyle = 1
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(3)
Index = 1
Left = Char(2)
MousePointer = 0
MultiLine = 0
ScrollBars = 0
TabIndex = 2
TabStop = 0
Tag = ""
Text = ""
Top = Char(4)
Visible = -1
Width = Char(12)
END
BEGIN TextBox Txt
BackColor = QBColor(7)
BorderStyle = 1
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(3)
Index = 0
Left = Char(15)
MousePointer = 0
MultiLine = 0
ScrollBars = 0
TabIndex = 1
TabStop = -1
Tag = ""
Text = ""
Top = Char(4)
Visible = -1
Width = Char(60)
END
BEGIN ListBox Lst
BackColor = QBColor(7)
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(15)
Left = Char(2)
MousePointer = 0
Sorted = 0
TabIndex = 0
TabStop = -1
Tag = ""
Top = Char(7)
Visible = -1
Width = Char(73)
END
BEGIN Menu File
Caption = "&File"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
BEGIN Menu OpenFile
Caption = "&Open File"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
END
BEGIN Menu OptimizeFile
Caption = "&Crunch File"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
END
BEGIN Menu s1
Caption = ""
Checked = 0
Enabled = -1
Separator = -1
Tag = ""
Visible = -1
END
BEGIN Menu Quit
Caption = "&Quit"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
END
END
BEGIN Menu Statement
Caption = "&Statement"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
BEGIN Menu AddStatement
Caption = "&Add"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = {F1}
Tag = ""
Visible = -1
END
BEGIN Menu ChangeStatement
Caption = "&Change"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = {F2}
Tag = ""
Visible = -1
END
BEGIN Menu InsertStatement
Caption = "&Insert"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = {F3}
Tag = ""
Visible = -1
END
BEGIN Menu DeleteStatement
Caption = "&Delete"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = {F4}
Tag = ""
Visible = -1
END
BEGIN Menu s2
Caption = ""
Checked = 0
Enabled = -1
Separator = -1
Tag = ""
Visible = -1
END
BEGIN Menu List2File
Caption = "&Write List to LANGOUT.TXT"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
END
END
END
DEFINT A-Z
'$INCLUDE: 'lang.bi'
'$DYNAMIC
DECLARE FUNCTION Coded$ (h$)
DECLARE FUNCTION Readstr$ (index&, fil%)
DECLARE SUB Lst_Dblclick ()
DECLARE SUB AddStr (s$, index&, fil%, Beginstr&)
DECLARE SUB FileSave (FileName AS STRING, PathName AS STRING, DefaultExt AS STRING, DialogTitle AS STRING, ForeColor AS INTEGER, BackColor AS INTEGER, Flags AS INTEGER, Cancel AS INTEGER)
DECLARE SUB RebuildLst ()
REM $STATIC
SUB AddStatement_click ()
a$ = form1.Txt(0).Text
IF a$ = "" THEN
form1.Txt(0).SETFOCUS
EXIT SUB
ELSE
g& = 0
AddStr RTRIM$(a$), g&, (f%), 0
RebuildLst
form1.Txt(0).Text = ""
form1.Txt(1).Text = ""
ON LOCAL ERROR RESUME NEXT
form1.Lst.Listindex = g& - 1
ON LOCAL ERROR GOTO 0
form1.Lst.SETFOCUS
END IF
END SUB
SUB ChangeStatement_click ()
a$ = form1.Txt(0).Text
IF a$ = "" THEN
Lst_Dblclick
EXIT SUB
ELSE
g& = VAL(form1.Txt(1).Text)
AddStr RTRIM$(a$), g&, (f%), 0
RebuildLst
form1.Txt(0).Text = ""
form1.Txt(1).Text = ""
ON LOCAL ERROR RESUME NEXT
form1.Lst.Listindex = g& - 1
ON LOCAL ERROR GOTO 0
form1.Lst.SETFOCUS
END IF
END SUB
SUB DeleteStatement_Click ()
a$ = form1.Lst.List(form1.Lst.Listindex)
a& = VAL(LTRIM$(a$))
a$ = MID$(a$, 10)
GET f%, 401, numstr&
FOR i& = a& TO numstr& - 1
AddStr Readstr$(i& + 1, (f%)), i&, (f%), 0
NEXT i&
AddStr "", numstr&, (f%), 0
numstr& = numstr& - 1
PUT f%, 401, numstr&
RebuildLst
form1.Lst.SETFOCUS
END SUB
SUB Form_Load ()
RebuildLst
form1.Lst.Listindex = 0
END SUB
SUB InsertStatement_Click ()
a$ = form1.Lst.List(form1.Lst.Listindex)
a& = VAL(LTRIM$(a$))
a$ = MID$(a$, 10)
GET f%, 401, numstr&
AddStr Readstr$(numstr&, (f%)), 0, (f%), 0
FOR i& = numstr& TO a& STEP -1
AddStr Readstr$(i& - 1, (f%)), i&, (f%), 0
NEXT i&
AddStr "", a&, (f%), 0
RebuildLst
form1.Txt(0).Text = ""
form1.Txt(1).Text = STR$(a&)
form1.Txt(0).SETFOCUS
END SUB
SUB List2File_Click ()
b$ = "LANGOUT.TXT"
t = FREEFILE
OPEN b$ FOR OUTPUT AS #t
GET f%, 401, numstr&
FOR i& = 1 TO numstr&
a$ = Readstr$(i&, (f%))
IF a$ <> "" THEN
a$ = STR$(i&) + " " + a$
a$ = LEFT$(a$, 78)
PRINT #t, a$
END IF
NEXT
CLOSE #t
END SUB
SUB Lst_Dblclick ()
a$ = form1.Lst.List(form1.Lst.Listindex)
a2$ = LTRIM$(a$)
a1$ = LEFT$(a2$, INSTR(a2$, " "))
a& = VAL(LTRIM$(a1$))
a$ = RTRIM$(MID$(a$, 6))
form1.Txt(0).Text = a$
form1.Txt(1).Text = STR$(a&)
form1.Txt(0).SETFOCUS
END SUB
SUB Lst_KeyPress (KeyAscii AS INTEGER)
IF KeyAscii = 13 THEN
Lst_Dblclick
END IF